home *** CD-ROM | disk | FTP | other *** search
- -- SetScale
-
- --Set a QT3 sprite's scale to some value
- --
- --PARAMETERS
- --Scale: Amount to scale the sprite.
-
- property xScale, yScale, pWhichEvent
-
- on doit me
- set the crop of member the member of sprite the spriteNum of me = false
- set the scale of sprite the spritenum of me to [xScale, yScale]
- set bFirstFrame = false
- end
-
- on beginSprite me
- if the pWhichEvent of me = #beginSprite then doIt me
- end
-
- on mouseUp me
- if the pWhichEvent of me = #mouseUp then doIt me
- end
-
- on mouseDown me
- if the pWhichEvent of me = #mouseDown then doIt me
- end
-
- on mouseWithin me
- if the pWhichEvent of me = #mouseWithin then doIt me
- end
-
- on prepareFrame me
- if the pWhichEvent of me = #prepareFrame then doIt me
- end
-
- on mouseEnter me
- if the pWhichEvent of me = #mouseEnter then doIt me
- end
-
- on mouseLeave me
- if the pWhichEvent of me = #mouseLeave then doIt me
- end
-
- on enterFrame me
- if the pWhichEvent of me = #enterFrame then doIt me
- end
-
- on exitFrame me
- if the pWhichEvent of me = #exitFrame then doIt me
- end
-
- on getPropertyDescriptionList
-
- set p_list = [ ¬
- #xScale: [ #comment: "X-Scale:", ¬
- #format: #float, ¬
- #default: 100.0 ], ¬
- #yScale: [ #comment: "Y-Scale:", ¬
- #format: #float, ¬
- #default: 100.0 ] ,¬
- #pWhichEvent: [ #comment: "Initializing Event:",¬
- #format: #symbol,¬
- #range: [#mouseUp, #mouseDown, #mouseWithin, #mouseEnter, ¬
- #mouseLeave, #prepareFrame, #enterFrame, #exitFrame,¬
- #beginSprite ], ¬
- #default: #beginSprite ] ¬
- ]
- return p_list
-
- end
- on getBehaviorDescription
- return ¬
- "Set a QT3 sprite's scale to some value" && RETURN & RETURN &¬
- "PARAMETERS" && RETURN &¬
- "Scale: Amount to scale the sprite."
-
- end
-
-
-